www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminchannel_qiye\D_admin_chnl.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->
<!--#include file=D_inc_lanmu_type.asp-->
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE4 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
<br />
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">
<%
if find_dataw("qitashezhi123","0",10)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
use_http_url=0
use_http_post=0
biao="[ND_channel]"
sys_content_type=trim(request("sys_content_type"))
function find_f(t,tt)
set rs112=server.CreateObject("adodb.recordset")
rs112.open "select * from ND_templates_folder_reg_qiye where is_default_template=true",conn,1,1
if rs112.eof then
find_f="当前没有默认模板,无法载入频道内部链接文件"
exit function
else
ppath="templates/"&rs112("templates_folder_path_name")&"/"
scrt_ff="../../"&ppath&iscrtfile
use_http_url=0
use_http_post=0
set fileaw=new Cls_FSO
set filebw=new DosAsp
if fileaw.ReportFileStatus(server.mappath(scrt_ff))=-1 then
'模板目录下不存在"&iscrtfile&"安装脚本文件
sconts=loadfile("../../inc/"&w_web_config_template)
call SaveXMLDocument_newindex(scrt_ff,sconts)
scrt_ff="../../"&ppath&w_files_config
sconts=loadfile("../../inc/"&w_files_config_template)
call SaveXMLDocument(scrt_ff,sconts)
else
'模板目录下存在"&iscrtfile&"安装脚本文件
xm_d_c=ReadXMLDocument(scrt_ff,"all_web_file_name_and_type_config")
scrt_fff="../../"&ppath&xm_d_c
if fileaw.ReportFileStatus(server.mappath(scrt_fff))=-1 then
scrt_ff="../../"&ppath&xm_d_c
sconts=loadfile("../../inc/"&w_files_config_template)
call SaveXMLDocument(scrt_ff,sconts)
end if
end if
ppath="templates/"&rs112("templates_folder_path_name")&"/"
scrt_ff="../../"&ppath&iscrtfile
xm_d_c=ReadXMLDocument(scrt_ff,"all_web_file_name_and_type_config")
scrt_ff="../../"&ppath&xm_d_c
set aasc=ReadXMLDocument_nodes(scrt_ff,"files/file_reg")
for aiaa=0 to aasc.length-1
aassaa=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filetype").text))
bbssbb=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filename").text))
ccsscc=trim(rep_xml_br(aasc(aiaa).selectSingleNode("to_html_filename").text))
if lcase(trim(t))=("$page$"&lcase(trim(aassaa))) then
find_f=bbssbb&"?id="&tt
exit function
end if
next
if instr(1,lcase(trim(t)),"$cstpage$",1)=0 then
find_f="频道内部链接配置文件丢失或存在错误,无法载入 频道内部链接"
else
find_f=mid(t,instr(1,lcase(trim(t)),"$cstpage$",1)+9,len(t)-(instr(1,lcase(trim(t)),"$cstpage$",1)+9)+1)
end if
end if
end function
%>
<script language="javascript">
function delact(id){
if (confirm("该频道所有内容及分类将被删除，确认删除?")==1){
self.location="D_del_chnl.asp?id="+id+"&sys_content_type=<%=sys_content_type%>";
}
}
</script>
<br />
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="3%" height="27" align="center" class="adminth"><span class="STYLE4">频道id</span></td>
<td width="12%" align="center" class="adminth"><span class="STYLE4">顺序号</span></td>
<td width="12%" align="center" class="adminth"><span class="STYLE4">频道名</span></td>
<td width="13%" align="center" class="adminth"><span class="STYLE4">频道类型</span></td>
<td width="31%" height="27" align="center" class="adminth"><span class="STYLE4">频道内部链接文件</span></td>
<td width="13%" align="center" class="adminth"><span class="STYLE4">操作</span></td>
<td width="7%" height="27" align="center" class="adminth"><span class="STYLE4">是否隐藏</span></td>
<td width="14%" height="27" align="center" class="adminth"><span class="STYLE4">是否外部连接</span></td>
</tr>
<%
CurrentPage=replacebadchar(request("page"))
if CurrentPage="" then
CurrentPage=1
else if not IsNumeric(CurrentPage) then
CurrentPage=1
else if int(CurrentPage)<=0 then
CurrentPage=1
else
CurrentPage=replaceBadchar(request("page"))
end if
end if
end if
maxperpage=21
aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/")
fileNamexx = aryxx(ubound(aryxx))
strFileName=fileNamexx&"?classid="&request("classid")&"&isshenhed="&request("isshenhed")&"&iszhuanti="&request("iszhuanti")
set Rs=server.CreateObject("adodb.recordset")
sql="select * from "&biao&" where is_qiye=1 order by clng(orders) asc"
Rs.open sql,conn,1,1
if not Rs.eof then
Rs.pagesize=MaxPerpage
totalnumber=Rs.recordcount
if totalnumber mod maxperpage=0 then
MaxPage= totalnumber \ MaxPerpage
else
MaxPage= totalnumber \ MaxPerpage+1
end if
if int(CurrentPage)>int(MaxPage) then
CurrentPage=MaxPage
else
CurrentPage=CurrentPage
end if
Rs.absolutepage=CurrentPage
for ni=1 to MaxPerpage
if Rs.eof then exit for
%>
<tr bgcolor="#EDF8FE">
<td width="3%" height="27" align="center"><%=rs("sys_content_type_name")%></td>
<td width="7%" height="27" align="center"><%=rs("orders")%> </td>
<td width="12%" align="center"><%=left(rs("name"),34)%></td>
<% if rs("is_link_class")="1" then%>
<td width="44%" align="center" colspan="2">
<font color="#FF0000">外部连接</font>
</td>
<%else
%>
<td width="13%" align="center">
<%call cc(rs("lanmu_type"))%>
</td>
<td width="31%" align="center">
<%response.write find_f(rs("channel_file_url"),rs("sys_content_type_name"))%>
</td>
<%end if
%>
<td width="13%" height="27" align="center"><a href="D_edit_chnl.asp?id=<%=rs("id")%>&sys_content_type=<%=sys_content_type%>">编辑</a>
<%if rs("sys_content_type_name")<>"root" then%>
<a href=# onclick="delact('<%=rs("id")%>');">删除</a>
<%else
%>
(默认频道无法删除)
<%end if%>
</td>
<td width="7%" height="27" align="center">
<% if rs("is_hidden")="1" then%>
<font color="#FF0000"> 已隐藏</font>
<%else
%>
不隐藏
<%end if%>
</td>
<td width="14%" height="27" align="center">
<% if rs("is_link_class")="1" then%>
<font color="#FF0000">外部连接</font>
<%else
%>
<font color="#0000FF">系统频道</font>
<%end if%>
</td>
</tr>
<%
Rs.movenext
next
else
%>
<tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr>
<%end if
Rs.close
set Rs=nothing
%>
<tr>
<td colspan="8" align="center" height="27" bgcolor="#FFFFFF"><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td>
</tr>
</table>
</div>
<script language=javascript>
AJAXfade(1,'l_list')
</script>
<%
AJAXcloseLoader()
%>